1 SYS65517:IFPEEK(781)=40THENMT$="":GOTO5
2 MT$=""
5 PRINTMT$"[147]"
10 CLOSE15:OPEN15,8,15:PRINT#15,"I0:":CLOSE5:OPEN5,8,5,"#":B$=""
20 PRINT#15,"U1:5,0,18,0":PRINT#15,"B-P:5,144"
30 FORJ=1TO16:GET#5,A$:A$=CHR$(ASC(A$+CHR$(0))):B$=B$+A$:NEXT
40 PRINT:PRINT"DISK NAME: ";B$
50 INPUT" NEW NAME";N$:IFLEN(N$)>16THENPRINT"MAXIMUM LENGTH IS 16":GOTO40
60 IFLEN(N$)<16THENN$=N$+CHR$(160):GOTO60
70 PRINT#15,"B-P:5,144":PRINT#5,N$;:PRINT#15,"U2:5,0,18,0":CLOSE5
80 INPUT#15,ER,ER$:PRINT"DISK STATUS:"ER;ER$:PRINT#15,"I0":CLOSE15:END